module  precision
implicit none
!integer,parameter:: p_=kind(1.0)
integer,parameter:: p_=kind(1.0d0)
end module precision


module constants
use precision
implicit none
real(p_),parameter:: pi=3.1415926_p_
integer,parameter::m=1000  !grid number

end module constants
